From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Dec 1993 00:45:07 +0000 (+0000)
Subject: (setting up kp-... keys): Make ascii-character props.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~93718
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0d1731348726139142efbe0f3da00f100c26a785;p=emacs.git

(setting up kp-... keys): Make ascii-character props.
ascii-character props for backspace, delete, etc. moved here.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 6f5b0bc4ccf..519447f6387 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2249,10 +2249,12 @@ a completion with the mouse."
 ;;; override these, so this shouldn't interfere with any existing
 ;;; bindings.
 
+;; Also tell read-char how to handle these keys.
 (mapcar
  (lambda (keypad-normal)
    (let ((keypad (nth 0 keypad-normal))
 	 (normal (nth 1 keypad-normal)))
+     (put keypad 'ascii-character normal)
      (define-key function-key-map (vector keypad) (vector normal))))
  '((kp-0 ?0) (kp-1 ?1) (kp-2 ?2) (kp-3 ?3) (kp-4 ?4)
    (kp-5 ?5) (kp-6 ?6) (kp-7 ?7) (kp-8 ?8) (kp-9 ?9)
@@ -2267,4 +2269,14 @@ a completion with the mouse."
    (kp-divide ?/)
    (kp-equal ?=)))
 
+;; These tell read-char how to convert
+;; these special chars to ASCII.
+(put 'backspace 'ascii-character 127)
+(put 'delete 'ascii-character 127)
+(put 'tab 'ascii-character ?\t)
+(put 'linefeed 'ascii-character ?\n)
+(put 'clear 'ascii-character 12)
+(put 'return 'ascii-character 13)
+(put 'escape 'ascii-character ?\e)
+
 ;;; simple.el ends here